unit Data;

interface

uses
  System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB, Vcl.Imaging.jpeg,
  cxClasses, cxGraphics, cxStyles, Vcl.ImgList, Vcl.Controls;

type
  TDM = class(TDataModule)
    Connect: TADOConnection;
    GridStyleRep1: TcxStyleRepository;
    grdContentOdd: TcxStyle;
    grdHeader: TcxStyle;
    imgList: TImageList;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{ %CLASSGROUP 'System.Classes.TPersistent' }

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  Connect.Close;
  Connect.ConnectionString := 'FILE NAME=' + GetCurrentDir + '\TSE.Udl';
  Connect.Open;
end;

end.
